home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s2.arc / PIBDWLOD.MOD < prev   
Text File  |  1987-08-28  |  2KB  |  29 lines
  1. (*----------------------------------------------------------------------*)
  2. (*             PibDownLoad --- Control routine for downloads            *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE PibDownLoad( Transfer_Protocol : Transfer_Type );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  PibDownload                                          *)
  10. (*                                                                      *)
  11. (*     Purpose:    Controls downloading of files from remote hosts.     *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        PibDownLoad( Transfer_Protocol : Transfer_Type );             *)
  16. (*                                                                      *)
  17. (*           Transfer_Protocol --- the type of transfer protocol        *)
  18. (*                                 be used; if None is given, then      *)
  19. (*                                 a prompt is issued for the transfer  *)
  20. (*                                 protocol.                            *)
  21. (*                                                                      *)
  22. (*----------------------------------------------------------------------*)
  23.  
  24. BEGIN (* PibDownLoad *)
  25.  
  26.    PibUpDown( Transfer_Protocol , 'R' );
  27.  
  28. END   (* PibDownLoad *);
  29.